home *** CD-ROM | disk | FTP | other *** search
/ CD World 1997 November / CD World - Kasım 1997.iso / graphics / avi / vmrg32tr.exe / 0 / RCDATA / TMAINWND / TMAINWND.txt
Text File  |  1997-01-19  |  20KB  |  731 lines
  1. object MainWnd: TMainWnd
  2.   Left = 300
  3.   Top = 102
  4.   Width = 383
  5.   Height = 382
  6.   Caption = 'AVI Video Merger'
  7.   Font.Color = clWindowText
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   Menu = MainMenu1
  12.   Position = poScreenCenter
  13.   OnCloseQuery = FormCloseQuery
  14.   OnCreate = FormCreate
  15.   PixelsPerInch = 96
  16.   TextHeight = 13
  17.   object DOSPanel: TMRPanel
  18.     Left = 0
  19.     Top = 0
  20.     Width = 185
  21.     Height = 336
  22.     Align = alLeft
  23.     BorderWidth = 4
  24.     TabOrder = 0
  25.     OnResize = DOSPanelResize
  26.     BorderSides = []
  27.     Moveable = False
  28.     CBorderStyle = cbsNone
  29.     OnNCHitTest = DOSPanelNCHitTest
  30.     object DirectoryListbox: TMRDirectoryListbox
  31.       Left = 5
  32.       Top = 27
  33.       Width = 175
  34.       Height = 97
  35.       Hint = 'Here you choose a directory where an AVI file is located'
  36.       Align = alTop
  37.       Color = clBtnFace
  38.       FileList = FileListBox
  39.       Font.Color = clWindowText
  40.       Font.Height = -13
  41.       Font.Name = 'System'
  42.       Font.Pitch = fpVariable
  43.       Font.Style = [fsBold]
  44.       ItemHeight = 16
  45.       ParentFont = False
  46.       ParentShowHint = False
  47.       ShowHint = True
  48.       TabOrder = 0
  49.       Moveable = False
  50.       CBorderStyle = cbsNone
  51.       OnResize = DirectoryListboxResize
  52.       OnNCHitTest = DirectoryListboxNCHitTest
  53.     end
  54.     object MRDriveCombobox1: TMRDriveCombobox
  55.       Left = 5
  56.       Top = 5
  57.       Width = 175
  58.       Height = 22
  59.       Color = clBtnFace
  60.       DirList = DirectoryListbox
  61.       Font.Color = clWindowText
  62.       Font.Height = -13
  63.       Font.Name = 'System'
  64.       Font.Pitch = fpVariable
  65.       Font.Style = [fsBold]
  66.       ParentFont = False
  67.       ParentShowHint = False
  68.       ShowHint = True
  69.       TabOrder = 1
  70.       Moveable = False
  71.       CBorderStyle = cbsNone
  72.       Align = alTop
  73.     end
  74.     object FileListBox: TMRFileListBox
  75.       Left = 5
  76.       Top = 124
  77.       Width = 175
  78.       Height = 166
  79.       Hint = 'Here you select an AVI to add'
  80.       Align = alClient
  81.       Color = clBtnFace
  82.       Font.Color = clWindowText
  83.       Font.Height = -13
  84.       Font.Name = 'System'
  85.       Font.Pitch = fpVariable
  86.       Font.Style = [fsBold]
  87.       ItemHeight = 16
  88.       Mask = '*.AVI'
  89.       MultiSelect = True
  90.       ParentFont = False
  91.       ParentShowHint = False
  92.       ShowHint = True
  93.       TabOrder = 2
  94.       OnDblClick = ABitbtn1Click
  95.       Moveable = False
  96.       CBorderStyle = cbsNone
  97.     end
  98.     object ABitbtn1: TABitbtn
  99.       Left = 5
  100.       Top = 290
  101.       Width = 175
  102.       Height = 41
  103.       Hint = 'Add to Building List'
  104.       Font.Color = clBtnText
  105.       Font.Height = -13
  106.       Font.Name = 'System'
  107.       Font.Pitch = fpVariable
  108.       Font.Style = [fsBold]
  109.       ParentFont = False
  110.       ParentShowHint = False
  111.       ShowHint = True
  112.       TabOrder = 3
  113.       OnClick = ABitbtn1Click
  114.       Glyph.Data = {
  115.         50010000424D500100000000000076000000280000001E0000000C0000000100
  116.         040000000000C000000000000000000000000000000000000000000000000000
  117.         80000080000000808000800000008000800080800000C0C0C000808080000000
  118.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777778877
  119.         777777777778877777007777777F00877777777777F7787777007777777F0008
  120.         7777777777F77787770078888887000087778888887777787700F00000000000
  121.         087F7777777777778700F00000000000008F7777777777777800F00000000000
  122.         007F7777777777777700F00000000000077F7777777777777700FFFFFFFF0000
  123.         777FFFFFFFF7777777007777777F00077777777777F7777777007777777F0077
  124.         7777777777F7777777007777777FF7777777777777FF77777700000000000000
  125.         0000000000000000000000000000000000000000}
  126.       NumGlyphs = 2
  127.       Align = alBottom
  128.     end
  129.   end
  130.   object MRPanel2: TMRPanel
  131.     Left = 185
  132.     Top = 0
  133.     Width = 190
  134.     Height = 336
  135.     Align = alClient
  136.     BorderWidth = 4
  137.     TabOrder = 1
  138.     BorderSides = []
  139.     Moveable = False
  140.     CBorderStyle = cbsNone
  141.     object LBEdit1: TLBEdit
  142.       Left = 5
  143.       Top = 107
  144.       Width = 180
  145.       Height = 224
  146.       Align = alClient
  147.       Color = clBtnFace
  148.       Font.Color = clBlack
  149.       Font.Height = -11
  150.       Font.Name = 'System'
  151.       Font.Pitch = fpVariable
  152.       Font.Style = [fsBold]
  153.       ItemHeight = 20
  154.       MultiSelect = True
  155.       ParentFont = False
  156.       ParentShowHint = False
  157.       ShowHint = True
  158.       Style = lbOwnerDrawVariable
  159.       TabOrder = 0
  160.       BTNBorderWidth = 1
  161.       ExtraHeight = 16
  162.       ShowItems = True
  163.       ShowIndex = True
  164.     end
  165.     object AVIFPSPanel: TMRPanel
  166.       Left = 5
  167.       Top = 5
  168.       Width = 180
  169.       Height = 34
  170.       Hint = 'How many Flips per second for the AVI'
  171.       Align = alTop
  172.       BevelOuter = bvNone
  173.       BorderWidth = 4
  174.       ParentShowHint = False
  175.       ShowHint = True
  176.       TabOrder = 1
  177.       BorderSides = []
  178.       Moveable = False
  179.       CBorderStyle = cbsNone
  180.       object Label1: TLabel
  181.         Left = 4
  182.         Top = 4
  183.         Width = 50
  184.         Height = 26
  185.         Align = alLeft
  186.         Caption = 'FPS     :'
  187.         Font.Color = clBtnText
  188.         Font.Height = -13
  189.         Font.Name = 'System'
  190.         Font.Pitch = fpVariable
  191.         Font.Style = [fsBold]
  192.         ParentFont = False
  193.       end
  194.       object FPSSpin: TASpinEdit
  195.         Left = 54
  196.         Top = 4
  197.         Width = 122
  198.         Height = 26
  199.         Font.Color = clWindowText
  200.         Font.Height = -13
  201.         Font.Name = 'System'
  202.         Font.Pitch = fpVariable
  203.         Font.Style = [fsBold]
  204.         MaxValue = 65000
  205.         MinValue = 1
  206.         ParentFont = False
  207.         TabOrder = 0
  208.         Value = 24
  209.         Align = alClient
  210.       end
  211.     end
  212.     object AVIWidthPanel: TMRPanel
  213.       Left = 5
  214.       Top = 39
  215.       Width = 180
  216.       Height = 34
  217.       Hint = 'The new AVI width. If 0, then 1st AVI size'
  218.       Align = alTop
  219.       BevelOuter = bvNone
  220.       BorderWidth = 4
  221.       ParentShowHint = False
  222.       ShowHint = True
  223.       TabOrder = 2
  224.       BorderSides = []
  225.       Moveable = False
  226.       CBorderStyle = cbsNone
  227.       object Label3: TLabel
  228.         Left = 4
  229.         Top = 4
  230.         Width = 50
  231.         Height = 26
  232.         Align = alLeft
  233.         Caption = 'Width  :'
  234.         Font.Color = clBtnText
  235.         Font.Height = -13
  236.         Font.Name = 'System'
  237.         Font.Pitch = fpVariable
  238.         Font.Style = [fsBold]
  239.         ParentFont = False
  240.       end
  241.       object WidthSpin: TASpinEdit
  242.         Left = 54
  243.         Top = 4
  244.         Width = 122
  245.         Height = 26
  246.         Font.Color = clWindowText
  247.         Font.Height = -11
  248.         Font.Name = 'System'
  249.         Font.Style = []
  250.         MaxValue = 1024
  251.         MinValue = 0
  252.         ParentFont = False
  253.         TabOrder = 0
  254.         Value = 0
  255.         Align = alClient
  256.       end
  257.     end
  258.     object AVIHeightPanel: TMRPanel
  259.       Left = 5
  260.       Top = 73
  261.       Width = 180
  262.       Height = 34
  263.       Align = alTop
  264.       BevelOuter = bvNone
  265.       BorderWidth = 4
  266.       ParentShowHint = False
  267.       ShowHint = True
  268.       TabOrder = 3
  269.       BorderSides = []
  270.       Moveable = False
  271.       CBorderStyle = cbsNone
  272.       object Label2: TLabel
  273.         Left = 4
  274.         Top = 4
  275.         Width = 50
  276.         Height = 26
  277.         Align = alLeft
  278.         Caption = 'Height :'
  279.         Font.Color = clBtnText
  280.         Font.Height = -13
  281.         Font.Name = 'System'
  282.         Font.Pitch = fpVariable
  283.         Font.Style = [fsBold]
  284.         ParentFont = False
  285.       end
  286.       object HeightSpin: TASpinEdit
  287.         Left = 54
  288.         Top = 4
  289.         Width = 122
  290.         Height = 26
  291.         Font.Color = clWindowText
  292.         Font.Height = -11
  293.         Font.Name = 'System'
  294.         Font.Style = []
  295.         MaxValue = 768
  296.         MinValue = 0
  297.         ParentFont = False
  298.         TabOrder = 0
  299.         Value = 0
  300.         Align = alClient
  301.       end
  302.     end
  303.   end
  304.   object MainMenu1: TMainMenu
  305.     Left = 257
  306.     Top = 112
  307.     object ProjectMenu: TMenuItem
  308.       Caption = '&Project'
  309.       ShortCut = 0
  310.       object Startnewproject1: TMenuItem
  311.         Caption = 'Start new project'
  312.         ShortCut = 0
  313.         OnClick = Startnewproject1Click
  314.       end
  315.       object N6: TMenuItem
  316.         Caption = '-'
  317.         ShortCut = 0
  318.       end
  319.       object Openfilelist1: TMenuItem
  320.         Caption = 'Read in files from a text file ...'
  321.         ShortCut = 0
  322.         OnClick = Openfilelist1Click
  323.       end
  324.       object Savefilelist1: TMenuItem
  325.         Caption = 'Save the list of files to a text file ...'
  326.         ShortCut = 0
  327.         OnClick = Savefilelist1Click
  328.       end
  329.       object N7: TMenuItem
  330.         Caption = '-'
  331.         ShortCut = 0
  332.       end
  333.       object Exit1: TMenuItem
  334.         Caption = 'E&xit '
  335.         ShortCut = 0
  336.         OnClick = Exit1Click
  337.       end
  338.     end
  339.     object Make1: TMenuItem
  340.       Caption = '&Make '
  341.       ShortCut = 0
  342.       OnClick = Make1Click
  343.       object MakeMonochromeMenu: TMenuItem
  344.         Caption = 'Monochrome AVI'
  345.         ShortCut = 116
  346.         OnClick = MakeMovie
  347.       end
  348.       object Make16ColorMenu: TMenuItem
  349.         Caption = '16 color AVI'
  350.         ShortCut = 117
  351.         OnClick = MakeMovie
  352.       end
  353.       object Make256ColorMenu: TMenuItem
  354.         Caption = '256 color AVI'
  355.         ShortCut = 118
  356.         OnClick = MakeMovie
  357.       end
  358.       object MakeTrueColorMovieMenu: TMenuItem
  359.         Caption = 'True color AVI'
  360.         ShortCut = 119
  361.         OnClick = MakeMovie
  362.       end
  363.       object N14: TMenuItem
  364.         Caption = '-'
  365.         ShortCut = 0
  366.       end
  367.       object Misc2ColorAVI1: TMenuItem
  368.         Caption = 'Misc. 2 Color AVI'
  369.         ShortCut = 0
  370.         object Make2CustomColorsMenu: TMenuItem
  371.           Caption = 'Custom Colors ...'
  372.           ShortCut = 0
  373.           OnClick = MakeMovie
  374.         end
  375.         object make2InverseMenu: TMenuItem
  376.           Caption = 'Negative Colors'
  377.           ShortCut = 0
  378.           OnClick = MakeMovie
  379.         end
  380.         object make2Random1Menu: TMenuItem
  381.           Caption = 'Random 2 color'
  382.           ShortCut = 0
  383.           OnClick = MakeMovie
  384.         end
  385.         object make2Random2Menu: TMenuItem
  386.           Caption = 'Random 2 Color'
  387.           ShortCut = 0
  388.           OnClick = MakeMovie
  389.         end
  390.       end
  391.       object Misc16colorAVIs1: TMenuItem
  392.         Caption = 'Misc. 16 color AVIs'
  393.         ShortCut = 0
  394.         object Make16ColorScaleMenu: TMenuItem
  395.           Caption = 'Custom color scale ...'
  396.           ShortCut = 0
  397.           OnClick = MakeMovie
  398.         end
  399.         object N16ColorScaleAVI1: TMenuItem
  400.           Caption = '16 Color Scale AVI'
  401.           ShortCut = 0
  402.           object Make16GrayScaleMenu: TMenuItem
  403.             Caption = 'Gray Scale AVI'
  404.             ShortCut = 0
  405.             OnClick = MakeMovie
  406.           end
  407.           object Make16RedScaleMenu: TMenuItem
  408.             Caption = 'Red Scale AVI'
  409.             ShortCut = 0
  410.             OnClick = MakeMovie
  411.           end
  412.           object Make16GreenScaleMenu: TMenuItem
  413.             Caption = 'Green Scale AVI'
  414.             ShortCut = 0
  415.             OnClick = MakeMovie
  416.           end
  417.           object Make16BlueScaleMenu: TMenuItem
  418.             Caption = 'Blue Scale AVI'
  419.             ShortCut = 0
  420.             OnClick = MakeMovie
  421.           end
  422.           object Make16YellowScaleMenu: TMenuItem
  423.             Caption = 'Yellow Scale AVI'
  424.             ShortCut = 0
  425.             OnClick = MakeMovie
  426.           end
  427.           object Make16FuchsiaScaleMenu: TMenuItem
  428.             Caption = 'Fuchsia Scale AVI'
  429.             ShortCut = 0
  430.             OnClick = MakeMovie
  431.           end
  432.           object Make16AquaScaleMenu: TMenuItem
  433.             Caption = 'Aqua Scale AVI'
  434.             ShortCut = 0
  435.             OnClick = MakeMovie
  436.           end
  437.         end
  438.         object N16MaximumColorAVI1: TMenuItem
  439.           Caption = '16 Maximum Color AVI'
  440.           ShortCut = 0
  441.           object make16RedWhiteScaleMenu: TMenuItem
  442.             Caption = 'Maximum Red AVI'
  443.             ShortCut = 0
  444.             OnClick = MakeMovie
  445.           end
  446.           object make16GreenWhiteScaleMenu: TMenuItem
  447.             Caption = 'Maximum Green AVI'
  448.             ShortCut = 0
  449.             OnClick = MakeMovie
  450.           end
  451.           object make16BlueWhiteScaleMenu: TMenuItem
  452.             Caption = 'Maximum Blue'
  453.             ShortCut = 0
  454.             OnClick = MakeMovie
  455.           end
  456.           object make16YellowWhiteScaleMenu: TMenuItem
  457.             Caption = 'Maximum Yellow'
  458.             ShortCut = 0
  459.             OnClick = MakeMovie
  460.           end
  461.           object make16FuchsiaWhiteScaleMenu: TMenuItem
  462.             Caption = 'Maximum Fuchsia'
  463.             ShortCut = 0
  464.             OnClick = MakeMovie
  465.           end
  466.         end
  467.         object make16InverseMenu: TMenuItem
  468.           Caption = 'Negative Color AVI'
  469.           ShortCut = 0
  470.           OnClick = MakeMovie
  471.         end
  472.         object make16Random1Menu: TMenuItem
  473.           Caption = 'Random (clean) Color AVI'
  474.           ShortCut = 0
  475.           OnClick = MakeMovie
  476.         end
  477.         object make16Random2Menu: TMenuItem
  478.           Caption = 'Random (dirty) color AVI'
  479.           ShortCut = 0
  480.           OnClick = MakeMovie
  481.         end
  482.       end
  483.       object Misc256colorAVIs1: TMenuItem
  484.         Caption = 'Misc. 256 color AVIs'
  485.         ShortCut = 0
  486.         object Make256ColorScaleMenu: TMenuItem
  487.           Caption = 'Custom color scale ...'
  488.           ShortCut = 0
  489.           OnClick = MakeMovie
  490.         end
  491.         object N256ColorScaleAVI1: TMenuItem
  492.           Caption = '256 Color Scale AVI'
  493.           ShortCut = 0
  494.           object Make256GrayScaleMenu: TMenuItem
  495.             Caption = 'Gray Scale AVI'
  496.             ShortCut = 0
  497.             OnClick = MakeMovie
  498.           end
  499.           object Make256RedScaleMenu: TMenuItem
  500.             Caption = 'Red Scale AVI'
  501.             ShortCut = 0
  502.             OnClick = MakeMovie
  503.           end
  504.           object Make256GreenScaleMenu: TMenuItem
  505.             Caption = 'Green Scale AVI'
  506.             ShortCut = 0
  507.             OnClick = MakeMovie
  508.           end
  509.           object Make256BlueScaleMenu: TMenuItem
  510.             Caption = 'Blue Scale AVI'
  511.             ShortCut = 0
  512.             OnClick = MakeMovie
  513.           end
  514.           object Make256YellowScaleMenu: TMenuItem
  515.             Caption = 'Yellow Scale AVI'
  516.             ShortCut = 0
  517.             OnClick = MakeMovie
  518.           end
  519.           object Make256FuchsiaScaleMenu: TMenuItem
  520.             Caption = 'Fuchsia Scale AVI'
  521.             ShortCut = 0
  522.             OnClick = MakeMovie
  523.           end
  524.           object Make256AquaScaleMenu: TMenuItem
  525.             Caption = 'Aqua Scale AVI'
  526.             ShortCut = 0
  527.             OnClick = MakeMovie
  528.           end
  529.         end
  530.         object N256MaximumColorAVI1: TMenuItem
  531.           Caption = '256 Maximum Color AVI'
  532.           ShortCut = 0
  533.           object make256RedWhiteScaleMenu: TMenuItem
  534.             Caption = 'Maximum Red AVI'
  535.             ShortCut = 0
  536.             OnClick = MakeMovie
  537.           end
  538.           object make256GreenWhiteScaleMenu: TMenuItem
  539.             Caption = 'Maximum Green AVI'
  540.             ShortCut = 0
  541.             OnClick = MakeMovie
  542.           end
  543.           object make256BlueWhiteScaleMenu: TMenuItem
  544.             Caption = 'Maximum Blue AVI'
  545.             ShortCut = 0
  546.             OnClick = MakeMovie
  547.           end
  548.           object make256MaxYellowMenu: TMenuItem
  549.             Caption = 'Maximum Yellow AVI'
  550.             ShortCut = 0
  551.             OnClick = MakeMovie
  552.           end
  553.           object make256MaxFuchsiaMenu: TMenuItem
  554.             Caption = 'Maximum Fuchsia AVI'
  555.             ShortCut = 0
  556.             OnClick = MakeMovie
  557.           end
  558.         end
  559.         object make256InverseMenu: TMenuItem
  560.           Caption = 'Negative Color AVI'
  561.           ShortCut = 0
  562.           OnClick = MakeMovie
  563.         end
  564.         object make256Random1Menu: TMenuItem
  565.           Caption = 'Random Color AVI'
  566.           ShortCut = 0
  567.           OnClick = MakeMovie
  568.         end
  569.         object make256Random2Menu: TMenuItem
  570.           Caption = 'Random'
  571.           ShortCut = 0
  572.           OnClick = MakeMovie
  573.         end
  574.       end
  575.       object N13: TMenuItem
  576.         Caption = '-'
  577.         ShortCut = 0
  578.       end
  579.       object MakeCompressed256ColorMenu: TMenuItem
  580.         Caption = 'Compressed 256 color AVI'
  581.         ShortCut = 120
  582.         OnClick = MakeMovie
  583.       end
  584.       object MakeCompressedTrueColorMenu: TMenuItem
  585.         Caption = 'Compressed true color AVI'
  586.         ShortCut = 121
  587.         OnClick = MakeMovie
  588.       end
  589.       object N1: TMenuItem
  590.         Caption = '-'
  591.         ShortCut = 0
  592.       end
  593.       object AVIBuildingOptions1: TMenuItem
  594.         Caption = 'AVI Building Options'
  595.         ShortCut = 0
  596.         object WriteColorPalettesMenu: TMenuItem
  597.           Caption = 'Write Palette Changes '
  598.           ShortCut = 0
  599.           OnClick = WriteColorPalettesMenuClick
  600.         end
  601.       end
  602.     end
  603.     object ListMenu: TMenuItem
  604.       Caption = '&List'
  605.       ShortCut = 0
  606.       object Cut1: TMenuItem
  607.         Caption = 'Cut'
  608.         ShortCut = 16472
  609.         OnClick = Cut1Click
  610.       end
  611.       object Copy1: TMenuItem
  612.         Caption = 'Copy'
  613.         ShortCut = 16451
  614.         OnClick = Copy1Click
  615.       end
  616.       object Paste1: TMenuItem
  617.         Caption = 'Paste'
  618.         ShortCut = 16470
  619.         OnClick = Paste1Click
  620.       end
  621.       object Pasteatbeginning1: TMenuItem
  622.         Caption = 'Paste at beginning'
  623.         ShortCut = 16450
  624.         OnClick = Pasteatbeginning1Click
  625.       end
  626.       object Pasteatend1: TMenuItem
  627.         Caption = 'Paste at end'
  628.         ShortCut = 16453
  629.         OnClick = Pasteatend1Click
  630.       end
  631.       object Delete1: TMenuItem
  632.         Caption = 'Delete'
  633.         ShortCut = 16452
  634.         OnClick = Delete1Click
  635.       end
  636.       object N2: TMenuItem
  637.         Caption = '-'
  638.         ShortCut = 0
  639.       end
  640.       object SelectAll1: TMenuItem
  641.         Caption = 'Select All'
  642.         ShortCut = 0
  643.         OnClick = SelectAll1Click
  644.       end
  645.       object Selectnone1: TMenuItem
  646.         Caption = 'Select none'
  647.         ShortCut = 0
  648.         OnClick = Selectnone1Click
  649.       end
  650.       object N3: TMenuItem
  651.         Caption = '-'
  652.         ShortCut = 0
  653.       end
  654.       object Reverseselection1: TMenuItem
  655.         Caption = 'Reverse selection'
  656.         ShortCut = 0
  657.         OnClick = Reverseselection1Click
  658.       end
  659.       object N4: TMenuItem
  660.         Caption = '-'
  661.         ShortCut = 0
  662.       end
  663.       object Reverselist1: TMenuItem
  664.         Caption = 'Reverse list'
  665.         ShortCut = 0
  666.         OnClick = Reverselist1Click
  667.       end
  668.       object Sortlist1: TMenuItem
  669.         Caption = 'Sort list'
  670.         ShortCut = 16467
  671.         OnClick = Sortlist1Click
  672.       end
  673.       object N5: TMenuItem
  674.         Caption = '-'
  675.         ShortCut = 0
  676.       end
  677.       object Clear1: TMenuItem
  678.         Caption = 'Clear'
  679.         ShortCut = 0
  680.         OnClick = Clear1Click
  681.       end
  682.     end
  683.     object Options1: TMenuItem
  684.       Caption = '&Options'
  685.       ShortCut = 0
  686.       object AutoPlayChk: TMenuItem
  687.         Caption = 'Start default player with AVI after building'
  688.         Checked = True
  689.         ShortCut = 0
  690.         OnClick = AutoPlayChkClick
  691.       end
  692.       object Overwritefilewarnings1: TMenuItem
  693.         Caption = 'Overwrite file warnings'
  694.         ShortCut = 0
  695.         OnClick = Overwritefilewarnings1Click
  696.       end
  697.       object Hints1: TMenuItem
  698.         Caption = 'Hints'
  699.         ShortCut = 0
  700.         OnClick = Hints1Click
  701.       end
  702.     end
  703.     object About1: TMenuItem
  704.       Caption = 'About'
  705.       ShortCut = 0
  706.       object About2: TMenuItem
  707.         Caption = 'About ...'
  708.         ShortCut = 0
  709.         OnClick = About2Click
  710.       end
  711.     end
  712.   end
  713.   object SaveDialog: TSaveDialog
  714.     DefaultExt = '*.A'
  715.     FileEditStyle = fsEdit
  716.     Filter = 'Video For Windows (*.AVI)|*.AVI|All Files (*.*)|*.*'
  717.     Left = 201
  718.     Top = 152
  719.   end
  720.   object OpenDialog: TOpenDialog
  721.     FileEditStyle = fsEdit
  722.     Left = 153
  723.     Top = 192
  724.   end
  725.   object ColorDialog: TColorDialog
  726.     Ctl3D = True
  727.     Left = 161
  728.     Top = 136
  729.   end
  730. end
  731.